DDDDDDDDDDDD 
DDDDDDDDDDDD 
ee 


DDDDDDDDDDDD 
DDDDDDDDDDDD 
DDDDDDDDDDDD 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
ABA AAS 
AAA AKA 
AAA AMA 
AAA AMA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA ABA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA BAA 
AAA AAR 
AAA AAA 


I 
] 
] 
1 
I 
] 
I 
I 
] 
I 
I 
I 
] 
u 
U 


) 
LY) 
) 
D 
0) 
D 
D 
D 
D 
D 
D 
D 
D 
D 
) 
DU 
DL 
DL 
DL 
DL 


N 12 


**F LE**1D**MACROS NE 
MM MM AAAAAA CCCCCCCC § RRRRRRRR 000000 SSSSSSSS ; 
MM MM AAAAAA CCCCCCCC § RRRRRRRR 000000 SSSSSSSS : 
MMMM MMMM AA AA CC RR RR 00 00 $$ ; 
MMMM MMMM AA AA CC RR RR 00 00 SS : 
MM MM MM AA cc RR RR 00 oo SS : 
MM MM UMM AA AA CC RR RR 00 00 SS ; 
MM MM AA AA CC RRRRRRRR 00 00 SSSSSS ; 
MM MM AA AA CC RRRRRRRR 00 00 SSSSSS ’ 
MM MM AAAAAAAAAA CC RR RR 00 00 SS : 
MM MM AAAAAAAAAA CC RR RR 00 00 SS : 
MM MM AA cc RR RR 00 00 $$ eee : 
MM MM AA cc RR RR 00 00 SS eeee ° 
MM MM AA AA CCCCCCCC «ORR RR 000000 SSSSSSSS eee ; 
MM MM AA AA CCCCCCCC «RR RR 000000 SSSSSSSS eeee : 
MM MM AAAAAA RRRRRRRR 
MM MM AAAAAA RRRRRRRR 
MMMM MMMM AA AA RR RR 
MMMM MMMM AA AA RR RR 
MM MM MM AA AA RR RR 
MM MM MM AA AA RR RR 
MM MM AA AA RRRRRRRR 
MM MM AA AA RRRRRRRR 
MM MM AA RR RR 
MM MM AAAAAAAAAA RR RR 
MM MM AA AA RR RR 
MM MM AA AA RR RR 
MM MM AA AA RR RR 
MM MM AA AA RR RR 
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MACRO DEFINITIONS FOR SYSTEM DUMP ANALYZER 
; Verston: *v04-000' 


s semebnaneeensededotonseceseeecebeseneeeenennenseeetoneseceeseentesesesteress 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


:? ® 
® ® 
:* ® 
® ® 
:* * 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED  # 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
*® ® 
:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOU . 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL E * 
;* CORPORATION. * 
** ® 
** * 
-* ® 
-* ® 
* * 
:* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


on 
Cc 


IT 
TAL 


PARAAAALALALALALALAALALSASSELASEELASLEASELASLASEALAESELLAZAELAL ESAS SE LACES EEA SSS 
: Author: Tim Halvorsen 
; ; Modi tied by: 


v03-002 ROW0237 oles 0. Weber ce0C l= heal 
Change uses of Age I to "ASCID where sepreees? ate. 
change to use ADDRESS where "at tous eat dd ADDR TABLE 
macro which is uk ke TABLE cet allows caller to specify 
peeryeses, Add P USHSTR t e address of a counted 
ASCII stri San ER Add COL UMN’ L yeh PRINTS COLUMNS, and 
DO_COLUMN_ENTRY macros to support the print _columns 
subroutine. Add MAKE_SYMBOL macro to allow convenient 
SDA symbol definition. 


v03-001 MSHO001 Maryann Hinden 10-Jun-1982 
Add PRINTD macro. 


3 RETIFERR - RETURN IF ERROR CONDITION 


-MACRO ~ We aes 7L1 
BLBS RO,L1 
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«MACRO 
MOVL 
-ENDM 


UBL3 
CML 


BGEG 
SKIP 
- ENDM 


CNT 


RETIFERR 


STATUS = SET RETURN STATUS MESSAGE 


STATUS MSG 
#MSG$_'MSG',RO 
STATUS 


SIGNAL = SIGNAL AN ERROR CONDITION 


SIGNAL CNT,MSG,?L1 
DIF ,<CNT>, <RMS> 

B,MSG BLBSg RO,L1 

NB, cnt’ PUSHL #CNT 

NB. *MSG.STATUS MSG 

NB,CNT,CALLS §#<CNT#2> G*LIBSSIGNAL 
B,CNT,CALLS #1,G*LIB$SIGN 

RO Ll 

MSG,R 

Pabst. _STV(R1) 

#2,G*LIBSSIGNAL 

SIGNAL 


ENSURE = ENSURE ENOUGH LINES REMAIN ON THE PAGE 


Ni ENSURE LINECNT,?L1 


LINE_COUNT, PAGE *STle, -(SP) 
tSPyT. ALINECNT 


PAGE 
ENSURE 


ERROR - OUTPUT ERROR MESSAGE TO THE TERMINAL 
= NUMBER OF FAO ARGUMENTS TO PASS TO FAO 


1 
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; TEXT = FAO CONTROL STRING 


.MACRO ER ROR CNT, TEX T.STR 
TYPE <fEXT>,STR 
.ENDM ERROR 


GETMEM = READ MEMORY, SIGNAL/RETURN IF NOT AVAILABLE 


START = STARTING VIRTUAL ADDRESS TO READ 
DEST = BUFFER TO RETURN MEMORY INTO 
LENGTH = LENGTH TO READ 


«MACRO GETMEM START 
DIF,LENGTH, #4 


PUSHL LENGTH 
ST 


DEST, LENGTH=#4 


a a a ae a ee ee ee ee ee ee ee ee ae ee ee ae ae ae ae 


START 

CALLS #ARGS,GETMEM 

IF IDN, LENGTH, #4 
NB, DEST 


IF 

MOVL R1,DEST 
-ENDC 

- ENDC 

-ENDM GETMEM 


REQMEM - FETCH REQUIRED MEMORY, SIGNAL/EXIT IF NOT AVAILABLE 


START STARTING VIRTUAL ADDRESS TO READ 
DEST BUFFER TO RETURN MEMORY INTO 
LENGTH LENGTH TO READ 


~MACRO REQMEM START 


DEST, LENGTH=44 
DIF ,LENGTH, #4 


STA 
CALLS Hart 
IF IDN,L 
“IF ie bES 


REQMEM 
ENGTH, a 
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MOVL R1,DEST 
~-ENDC 


-ENDC 
-ENDM REQMEM 


TRYMEM = FETCH OPTIONAL MEMORY 


START = STARTING VIRTUAL ADDRESS TO READ 
DEST = BUFFER TO RETURN MEMORY INTO 
LENGTH = LENGTH TO READ 


.MACRO TRYMEM START,DEST,LENGTH=84 
DIF,LENGTH, #4 


PUSHL LENGTH 
DEST 


START 

CALLS #ARGS,TRYMEM 

IF 1DN, LENGTH, #4 
NB, DEST 


IF 

MOVL R1,DEST 
-ENDC 

-ENDC 

-ENDM TRYMEM 


PUTMEM = STORE INTO DUMP MEMORY, SIGNAL/EXIT IF ERROR 


= STARTING DUMP VIRTUAL ADDRESS TO WRITE 
LOCAL = LOCAL BUFFER TO TRANSFER FROM 
LENGTH = LENGTH TO WRITE 


Se Ge Ge Ge Ge Oe 
nw 
— 
> 
wD 
—~ 


.MACRO PUTMEM START,LOCAL,LENGTH 
PUSHL LENGTH 
PUSHAL LOCAL 

#3, PUTMEM 
-ENDM = PUTMEM 


PRINT = PRINT A LINE TO THE OUTPUT FILE 


= NUMBER OF FAO ARGUMENTS TO PASS TO FAO 
TEXT = FAO CONTROL STRING 


F 4 
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=MACRO PRINT, CNT, TEXT, 2L1 
[PSECT LITERALS,EXE,NOWRT 
L1: TASCID \TEXT\ 


L1 
CALLS) &#<1+CNT>,PRINT 
-ENDM = PRINT 


PRINTD = print a Line to output file, specifying a descriptor 
for the FAO control string 


CNT = # FAO ARGS 
DESC = DESCRIPTOR OF FAO CONTROL STRING 


-MACRO PRINTD,CNT,DESC 
PUSHAQ DESC 

INCL CNT 

CALLS CNT,PRINT 


-ENDM PRINTD 


SKIP = SKIP A SPECIFIED NUMBER OF LINES 


Se Se Ge Se oe 


CNT = NUMBER OF BLANK LINES TO OUTPUT 
.MACRO SKIP,CNT 

“IF IDN, <CNT>, <PAGE> 
CALLS #0,NEW_PAGE 

“IF IDN,<CNT>,<page> 
CALLS #0,NEW_PAGE 
PUSHL #'CNT 

CALLS #1,SKIP_LINES 
-ENDC 

ENDC 

“ENDM = SKIP 


STRING = GENERATE A STRING DESCRIPTOR 
STR = STRING TEXT 


. 
° 
. 
° 
> 
° 
. 
* 
. 
° 
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»MACRO = STRING,STR 
sASCID \STR\ 
-ENDM STRING 


Li: 


Li: 


Li: 


PUSHSTR = PUSH THE ADDRESS OF A COUNTED ASCII STRING 


oa PUSHSTR,STR 

-PSECT LITERALS,EXE,NOWRT 
STRING <STR> 

RESTORE 

PUSHAB L1 

~ENDM PUSHSTR 


SUBHD - SPECIFY NEW SUB-HEADING FOR LISTING OUTPUT 
TEXT = TEXT OF NEW SUB-HEADING 


cr ig SUBHD TEXT,?L1 
-PSECT LITERALS,EXE,NOWRT 
<TEXT> 


Q 1.1 
CALLS #1,SET_HEADING 
-ENDM © SUBHD 


TYPE = TYPE A SPECIFIED STRING TO THE TERMINAL 
CNT = NUMBER OF FAO ARGUMENTS TO PASS TO FAO 
TEXT = FAO CONTROL STRING 

.MACRO TYPE CNT TEXT, STR, 2L1 

OUTPOT+RABSW_RSZ 

NB, STR 

PUSHAG STR 


-PSECT LITERALS,EXE,NOWRT 
S <TEXT> 


4 
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CALLS #<CNT+3>,G*SYSSFAO 
MOVAB CMND_BUFFER,OUTPUT+RABSL_RBF 


$PUT 
SIGNAL RMS,OUTPUT 
.ENDM = TYPE 


| 


ALLOC = ALLOCATE BUFFER ON STACK 


THAT BUFFER. THE ADDRESS OF THE DES 
WILL BE RETURNED IN THE SECOND ARGUME 


Sete te Ge Ge Ge Oe e 
> 
i] 
Cc 
> 
~_ 
m 
= 
wv 
PJ 
mm 
m 
m 
_—J 
m 
v 
wo 
~< 
Pr 
J 
m 
nw 
I 
= 
-_ 
wv 
~ 
[=] 
P=] 
J 
m 


«MACRO ALLOC _LENGTH,RSLDESC 
§ #<LENGTH* 3>&<*C3>, SP 


IF NB ,RSLDESC 
MOVL SP,RSLDESC 


a gp Dae as a a De a Gay ee a ea ee oe eee 


ENDC 

"END 
; TABLE = GENERATE DEFINITION TABLE 
: THIS MACRO GENERATES A BIT OR VALUE DEFINITION TABLE 
: FOR USE IN TRANSLATING GIVEN VALUES/BITMASKS INTO THE 
: NAMES CORRESPONDING TO THE VALUES/BITS. 


«MACRO TABLE,PREFIX,VALUES 
- IRP VALUE , VALUES 


-PSECT LITERALS,EXE,NOWRT 
$$$ = ° 
eASCIC \VALUE\ 


STOR 
LONG ‘PREFIX ‘VALUE’ 
-ADDRESS $$$ 


EN 
"LONG «6 =1,=1 
“ENDM = TABLE 


THIS MACRO GENERATES A POINTER DEFINITION TABLE FOR 
uss IN TRANSLATING GIVEN VALUES INTO THE ADDRESS OF 


| 
ADDR_TABLE - GENERATE POINTER TABLE | 
FURTHER LOOKUP TABLE (OR WHATEVER) 
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-MACRO ADDR_TABLE,PREFIX,LIST 
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.MACRO $ONE_ADDRS 

G  'PFXT VALUE 

-ENDA SONE -ADDR RS 
ITEM><LIST> 

tayo PREF IXSITEM 


[LONG -=1,- 
ENDM ADOR TABLE 


PFX, VALUE , ADDR 


PRINT_COLUMNS = GENERATE A CALL TO THE PRINT_COLUMNS ROUTINE 
This macro generates a call to the PRINT_COLUMNS routine. 


Parameters: 
STRUCTURE = address of data structure 
STRCT_SVA = system virtual address of data structure 
CLISTT - COLUMN_LIST base for column 1 
cListé - COLUMN_LIST base for column 
CLIST = COLUMN_LIST base for column 


CLIST10 = COLUMN_LIST base for column i0 


-MACRO PRINT_COLUMNS STRUCTURE. STRCT SVA List cList 2,CLIST3,CLIST4,- 
eek kt CLISTS,CLIST6,CLIST?,CLIST ST9,CLIST10 
.IRP  $$T1,<CLIST10,CLIST9, CLISTB,CLIST? CLIST6,~ 
CLISTS, CLIST4.CLIST3,.CLIST2,CLIST1> 

IF NB ssi 
PUSHAB $$T1 
Seo estos 

NDC 


NDR 
PUSHL STRCT_SVA 
PUSHAL STRUCTURE 
CALLS #$$T2,G*PRINT_COLUMNS 
-ENDM = =PRINT_COLUMNS™ 


COLUMN_LIST - ae ary LIST DESCRIBING ONE COLUMN 
OF A MULTI-COLUMN TABLE 


This macro generates the description for e. + le cokuen. of 

a multi-column table. Each entry in the | as SCOLM 

format. Such tables are processed by the PRINT COLUMNS g Ae 
See the PRINT_COLUMNS module header in SDA module MAIN for a 
description of how use this macro. 


sMACRO_ COLUMN_LIST,PREFIX,DFDCSZ,DFVLSZ,DFSPSZ,LIST 
SCOLMDEF 
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ASSUME COLE ENGTH EQ 16 
MACRO COLI STS PFX»STR,SRC,TYP, = 
wail DCSZ="pFbCSZ' ,vL$Z= "OF VLS2" ,SPSZ="DFSPSZ",2L1 
[PSECT LITERALS,EXE,NOWRT 
“ASCIC \STR\ 
;RESTORE 
[ADDRESS L1 
c1F DF _'PEX''SRC' 
='pF Fx 


«LONG 
~BYTE COLMSK_FAO_"TYP’, 0, 0, 0 
ADDRESS SRC, TYP 


«BYTE +334 ts¥¥o"° SPSZ, 0 
-ENDM = $COLI ST 


*IRP  _ ITEM, <LIST> 
$COLISTS PREFIX, ITEM 
.ENDR 


LONG 
“BYTE DfES. DFVLSZ, DFSPSZ, 0 
"ENDM UMN LIST 


; DO_COLUMN_ENTRY = USE PRINT COLUMNS INTERNAL ACTION ROUTINE TO 
; CONVERT A VALOE 


; This macro allows a PRINT_COLUMNS action routine to produce one 
; of the default output formats using che standard routine. 


; Parameters: 
type FAO type yn te valid in the COLUMN_LIST macro is valid here) 
jump ne or JSB contro + transfer to subroutine 
(JSB is the default) 
; Inputs: 
Re address of the datum or its descriptor 
field size (as input to the action routine) 
«MACRO DO_COLUMN wi TYPE JUMP=JSB 
MOVB RS 
‘JUMP* G*PR T=COLORN VALUE 
-ENDM = D0_ COLURN. ENT 


MAKE _SYMBOL - ADD A SYMBOL TO THE SDA SYMBOL TABLE 


-MACRO MAKE_SYMBOL , SYMBOL , VALUE, ?L1,?L2 


[PSECT LITERALS 
"ASCII \SYMBOL\ 
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L2: 
RESTORE 
putt VALUE 


PU #<L2-L1> 
CALLS #3,ADD_SYMBOL 
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